home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / services / AdvanceSubnet.agp < prev    next >
Encoding:
Text File  |  1999-06-17  |  5.2 KB  |  167 lines
  1. <html>
  2. <head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  4. <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper@infopulse.net">
  5. <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
  6. <title>Empty</title>
  7.  
  8. </head>
  9.  
  10. <body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080">
  11.  
  12.  
  13. <p><big><strong><font face="Arial">DHCP options for <br><%Response.Write(Request.ReqParam("identifier"))%></font></strong></big></p>
  14.  
  15.  
  16. <%
  17.     if Request.ReqParam("action") = "Commit" Then
  18.     
  19.         On Error Resume Next
  20.         ComDhcp.DhcpOption (Request.ReqParam("identifier"),-1) ="refresh"
  21.         Dim count 
  22.         count =1
  23.         
  24.         while (count <> 60 )
  25.             count=count+1
  26.     
  27.         if Request.ReqParam(count) = "ON" then
  28.             ComDhcp.DhcpOption (Request.ReqParam("identifier"),count) =Request.ReqParam ( count+100 )
  29.         end if
  30.  
  31.         wend
  32.                 
  33.         If Err.Number = 0 Then 
  34.              Response.Redirect("/services/editdhcp.agp")
  35.             
  36.         End If
  37.  
  38.     End if
  39.  
  40. %>
  41.  
  42. <%
  43.     If Not Len(ErrLine) = 0 Then
  44.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  45.     End If
  46. %>
  47.  
  48.  
  49. <%    Dim identifier    
  50.     identifier    =    Request.ReqParam("identifier")
  51.     Dim ArrayProp(66)
  52.             ArrayProp(1)="" 
  53.             ArrayProp(2)="2. Time Offset" 
  54.             ArrayProp(3)="3. Router" 
  55.             ArrayProp(4)="4. Time Server" 
  56.             ArrayProp(5)="5. Name Server" 
  57.             ArrayProp(6)="6. Domain Name Server" 
  58.             ArrayProp(7)="7. Log Server" 
  59.             ArrayProp(8)="8. Cookie Server" 
  60.             ArrayProp(9)="9. LPR Server" 
  61.             ArrayProp(10)="10. Impress Server" 
  62.             ArrayProp(11)="11. Resource Location Server" 
  63.             ArrayProp(12)="12. Host name" 
  64.             ArrayProp(13)="13. Boot File Size" 
  65.             ArrayProp(14)="14. Merit Dump File" 
  66.             ArrayProp(15)="15. Domain Name" 
  67.             ArrayProp(16)="16. Swap Server" 
  68.             ArrayProp(17)="17. Root Path" 
  69.             ArrayProp(18)="18. Extensions Path" 
  70.             ArrayProp(19)="19. IP Forwarding Enable/Disable (value=0 or 1)" 
  71.             ArrayProp(20)="20. Non-Local Source Routing Enable/Disable (value=0 or 1)" 
  72.             ArrayProp(21)="21. Policy Filter" 
  73.             ArrayProp(22)="22. Maximum Datagram Reassembly Size" 
  74.             ArrayProp(23)="23. Default IP Time-to-live" 
  75.             ArrayProp(24)="24. Path MTU Aging Timeout" 
  76.             ArrayProp(25)="25. Path MTU Plateau Table" 
  77.             ArrayProp(26)="26. Interface MTU" 
  78.             ArrayProp(27)="27. All Subnets are Local" 
  79.             ArrayProp(28)="28. Broadcast Address" 
  80.             ArrayProp(29)="29. Perform Mask Discovery" 
  81.             ArrayProp(30)="30. Mask Supplier" 
  82.             ArrayProp(31)="31. Perform Router Discovery" 
  83.             ArrayProp(32)="32. Router Solicitation Address" 
  84.             ArrayProp(33)="33. Static Route" 
  85.             ArrayProp(34)="34. Trailer Encapsulation" 
  86.             ArrayProp(35)="35. ARP Cache Timeout" 
  87.             ArrayProp(36)="36. Ethernet Encapsulation" 
  88.             ArrayProp(37)="37. TCP Default TTL" 
  89.             ArrayProp(38)="38. TCP Keepalive Interval" 
  90.             ArrayProp(39)="39. TCP Keepalive Garbage" 
  91.             ArrayProp(40)="40. Network Information Service Domain" 
  92.             ArrayProp(41)="41. Network Information Servers" 
  93.             ArrayProp(42)="42. Network Time Protocol Servers" 
  94.             ArrayProp(43)="43. Vendor Specific Information" 
  95.             ArrayProp(44)="44. NetBIOS over TCP/IP Name Server" 
  96.             ArrayProp(45)="45. NetBIOS over TCP/IP Datagram Distribution Server" 
  97.             ArrayProp(46)="46. NetBIOS over TCP/IP Node Type" 
  98.             ArrayProp(47)="47. NetBIOS over TCP/IP Scope" 
  99.             ArrayProp(48)="48. X Window System Font Server" 
  100.             ArrayProp(49)="49. X Window System Display Manager" 
  101.             ArrayProp(50)="" 
  102.             ArrayProp(51)="" 
  103.             ArrayProp(52)="" 
  104.             ArrayProp(53)="" 
  105.             ArrayProp(54)="" 
  106.             ArrayProp(55)="55. Parameter Request List" 
  107.             ArrayProp(56)="56. Message" 
  108.             ArrayProp(57)="57. Maximum DHCP Message Size" 
  109.             ArrayProp(58)="" 
  110.             ArrayProp(59)="" 
  111.             ArrayProp(60)="60. Class-identifier" 
  112.             ArrayProp(61)="61. Client-identifier" 
  113.  
  114.  
  115. %>
  116.  
  117. <form method="POST" action= "/services/AdvanceSubnet.agp">
  118. <input type="hidden" name="identifier" value="<%Response.Write(identifier)%>">
  119. <br>
  120.  
  121. <table border="1" cellpadding="0" cellspacing="0" width="100%">   
  122.     <tr>
  123.             <td  bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  124.             Enable
  125.             </font></strong></td>
  126.             <td  bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  127.             Subnet Options
  128.             </font></strong></td>
  129.             <td  bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  130.             Subnet Value
  131.             </font></strong></td>
  132.     </tr>
  133.     
  134. <%
  135.     Dim counter 
  136.     counter =1
  137.     while (counter <> 61 )
  138.     counter=counter+1
  139.     if (ArrayProp(counter)<>"") then
  140.  
  141. %>
  142.  
  143.   <tr>
  144.  
  145.     <input type="hidden" size=14 name="identifier" value="<%Request.Write(Request.ReqParam("identifier"))%>" >             
  146.     <td width="5%"><font face="Arial"><input type="checkbox" name=<%Response.Write(counter)%> value="ON" <% if ComDhcp.DhcpOption (identifier,counter)<>"" then Response.Write("checked") end if%>></td>
  147.     <td width="40%"><strong><font face="Arial"><%Response.Write(ArrayProp(counter))%></B></td>
  148.     <td width="55%"><font face="Arial"><input type="text" size="35" name=<%Response.Write(counter+100)%> value="<%Response.Write(ComDhcp.DhcpOption (identifier,counter)) %>"> </td>
  149.  
  150.  </tr>
  151.  
  152. <%
  153.     end if
  154.         
  155.     wend %>
  156.  
  157. </table>
  158.  
  159.  
  160. <p><input type="submit" name="action" value="Commit"></p>
  161. </form>
  162.  
  163. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  164.  
  165. </body>
  166. </html>
  167.